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Label Say RENEW? 


If the mailing label on this issue says 
RENEW, your free subscription has expired. 
To avoid missing the next issue, renew 
immediately by filling out and returning 
this coupon! 
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Telephone: _ 


[U I use the Pick operating system and my mailing 
address is in the USA. Please continue sending me 
Pragma’s Product Profiles free of charge. 
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Return this form to: 

Pragma • 207 Granada Drive • Aptos, CA 95003 


The Wonders Of A 
Software Upgrade 

In our March issue, we gave our impressions 
of General Automation's Zebra 750, the 
entry-level model in that company's product 
line of Pick computers. 

Overall, we very much liked the 750 (which 
has recently been remodeled and is now 
packaged and sold as the 1750, although its 
price and configuration remain essentially the 
same). However, that original review did 
include three complaints about the software: 
excessive memory flushing, listing null values 
last when sorting with right justification, and 
a too-small type ahead buffer. But now 
we've received and installed the new 3.0 
release of the Zebra software, and it handily 
dispenses with most of the misgivings we had. 

Unfortunately, simply finding out about new 
Zebra releases can be a matter of luck, since 
General Automation seems to shun any direct 
contact with end users, leaving it up to their 
dealers to tell customers what's new. As a 
result, some sites are left in the dark about 
Zebra product changes and improvements, 
since the lazier dealers don't seem to want to 
bother informing their customers about new 
developments. We were especially surprised 
when our contact at General Automation 
seemed disinterested in our attempt to 
generate some additional coverage: he 
declined to send us the 3.0 release so we 
could do this follow-up story to our March 
article, and asked us to order it from a dealer 
instead. (Our thanks to Vince O'Donnell for 
finally getting us a copy of the new Zebra 
release.) At the very least, General 
Automation should maintain an end user 
mailing list and periodically send out brief 
bulletins to inform customers of what's going 
on and what they can expect from their 
dealers. 



Before we abandoned 2.1, we ran a few 
benchmarks so we'd be able to tell if 3.0 
actually provided any improvement in speed. 
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YOU CAN CHOOSER SOLUTION 
AND STILL HAVE APROBLEM. 



YOUR APPLICATION 
SOFTWARE MAKES 
MORE SENSE ON A 
MENTOR® COMPUTER 

The software you bought was designed 
to help you run your business. So if you 
can’t access it properly, can’t use it to its 
fullest, you and your business have a 
serious problem. The solution you were 
sold is not the answer. 



the system. Mentor understands the 
language you do. English. We call it 
INFO/ACCESS. Easy to use but powerful 
enough to generate just about any kind of 
report you can imagine. 

Talk to us. There’s an expert Mentor 
Systems Marketer near you. That 
Marketer will provide you with a wide range 
of programs to fit your business. So 
you don’t have to work it the other 
way around. 

Call your nearest Mentor marketer today. 
And get the right solution. 


Well, relax. ADDS, a subsidiary of NCR, is here 
to help. ADDS Mentor and its enhanced PICK 
operating system will open a communications 
channel between you, your software and your 
hardware the likes of which you have never 
enjoyed before. 

And because Mentor computer systems are 
expandable, as your business grows, so can 


IT ALL ADDS UP. 



Applied Digital Data Systems Inc. 

A Subsidiary of NCR Corporation 


100 Marcus Boulevard, Hauppauge, NY 11788 USA 

Tel. (516) 231 -5400 • Telex 510-227-9886 • Fax (516) 231 -7378 


® Mentor is a registered trademark of Applied Digital Data Systems, Inc. 




















We immediately repeated the benchmarks 
after loading 3.0, and found that CPU-bound 
tests that didn't require any I/O (such as the 
standard tests frequently demonstrated in 
Pragma's popular Benchmarks department), did 
not run any faster at all. On the other hand, 
the problem with excessive memory flushing 
seems to have disappeared, and operations 
that do require I/O have improved remarkably. 
For example: 


MINUTES:SECONDS 

2.1 

3.0 

SSELECT & SAVE-LIST, FILE A 

1:11 

:19 

SSELECT & SAVE-LIST, FILE B 

2:27 

:51 

ACCOUNT-SAVE 

4:37 

:45 

COMPILE FILE OF PROGRAMS 

21:28 

18:52 


Obviously, a 750 with 3.0 is a real pleasure to 
use, compared to the old 2.1 release. 
Unfortunately, null values still list last when 


sorted with right justification. On the plus 
side, the type ahead buffer is now four times 
larger, so the system always seems to stay 
well ahead of any fast data entry clerk. 

3.0 also offers a number of other new 
features and facilities. The two major 
additions that interested us the most are an 
EXECUTE statement in BASIC programs for 
invoking TCL commands, and a TCL stacker 
for remembering, editing and re-executing 
console commands. 

The long list of minor enhancements in 3.0 
includes a number of new verbs: DATE for 
converting dates, BREAK-KEY-ON and -OFF 
(useful for keeping users from getting trapped 
in the debugger), RESET-TERM for undoing 
SET-TERM, TA-ON and -OFF for controlling 
type ahead, STACK-ON and -OFF for 
controlling the TCL stacker, DATE-FLAG for 
setting date formats, RESET-PORT for 
unlocking blocked processes, XOFF-DISABLE 
and -ENABLE for controlling port protocols, 


6 WAYS TO PERFECT YOUR SYSTEM WITH A TELEPORT™ 


1. PERFORMANCE IMPROVEMENT: 

Turbocharge your system with TELEPORTs. Much faster 
performance means time savings. Zip along in spread¬ 
sheets. Do extended calculations in seconds instead of 
minutes. Enter data 50 to 300% faster. 

In many applications the TELEPORT will pay for itself in 
labor savings alone, in just a few months. 

2 . REMOTE OPERATIONS: 

Work remotely at an effective rate of 19,200 baud instead 
of working at modem speeds. Remote printing is a snap. 
Reduce tedium and save time. Cut telecommunications 
costs 50% and more. 


4 . PRINTER SUPPORT: 

Add a printer to your workstation without tying up a port. 
Alleviate the workload on your host printer. Get reports at 
your desk. (Get full printer control, including x-on and 
x-off, status monitoring, data compression and error 
detection.) 

5 . REDUNDANT SYSTEMS: 

Mirror image your data with a redundant system. If the 
host fails, the TELEPORT supported redundant host is 
available to continue processing. Mirror only what you 
need. 


3 . COMMUNICATIONS VARIETY: 

Interface easily with specialized data entry devices like 
cash registers, page readers and bar code readers. Use 
block mode, burst mode or conversational asynch devices. 
Fully user programmable. 


6 . HOST-TO-HOST ACCESS AND TRANSFER: 

Work with similar or different PICK™-based systems to 
access or transfer data under program control, without 
operator invervention. pick is a trademark of pick systems 



TELEPORT™ FROM WINDSOR ELECTRONICS INC. 

WINDSOR /7XAS\ 

ELECTRONICS (WM)) 

INCORPORATED 


• THE PERFECT WAY TO HELP PERFECT YOUR PICK SYSTEM 

THE WINDSOR BUILDING 

11820 NORTHUP WAY, BELLEVUE, WA 98005 


• FAST, EASY INSTALLATION — VIRTUALLY NO RE-TRAINING 

1-800-421-0618 TOLL FREE 

IN WASHINGTON (206) 822-8492 
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NOW YOU CAN LEARN PICK 


without cracking a book! 

Now Available For 
Microdata and the 
Pick PC XT! 



for the PICK Operating System 


THE COMPLETELY ELECTRONIC 
LEARNING SYSTEM FOR PICK 



ve 45 ready said that a Data File In the PICK computer systen works 
4 very analigous way to a standard netal file cabinet. How so? 


if a drawer In the file 
Jmet, a Data Fite is a 
section of RECORDS, with 
’• j ar information stored in 
:b RECORD. 


RECORD has a unique RECORD 
Uhen you want to retrieve 
.nfornation m a RECORD 
i BASIC program for instancs 
first need a RECORD KEY. 


The RECORD KEY 
tells the system 
which RECORD you 
want. 


aiding the RECORD KEY, yoi 
me system which RECORD yoi 


PROF is a hands-on, interactive learning system that will get 
you up to speed on PICK, quickly and easily. It's clever, enter¬ 
taining, and all learning is done right on the terminal. 

PROF leads you through simulated, HANDS-ON WORK 
SESSIONS in which you actively participate. You try every 
important command, and carefully review the way the system 
responds to each. It all happens right on the terminal. There is 
no book to hold in your lap. 

PROF contains material that is suitable for both users and 
technical personnel. Give it to your application users. Use it to 
train new analysts and programmers. 

PROF allows you to learn at your own pace. You can follow 
the suggested order of instruction, or quickly jump from "page" 
to "page" . . . just like a book. 

PROF has an Electronic Master Index which works just like the 
index at the back of a book. You can peruse the alphabetical list 
of subjects, then jump right into any lesson you desire. 


COMING SOON! PROF for Prime Information PROF for Cosmos Revelation 


You can order PROF by writing or calling us at 

CRESCENDO Associates, Inc. 

P.O. BOX 440 

DEARBORN HEIGHTS, Ml 48127 
(313) 337-1919 


PICK is a trademark of PICK Systems, Inc. 


Yes! Please send me more information about PROF. 


Name 


Company 
Address _ 

City _ 

Phone ( 


State 


Zip.. 


PROF tells you exactly what to type. It then "checks" off each 
character as you type the right key. If you touch the wrong key, 
you are reminded by a single "beep". Every keystroke is screen¬ 
ed electronically. You cannot make a mistake! 

PROF covers all important aspects of PICK. This includes: 

TCL Database concepts 

EDITOR PROC 

ACCESS DATA/BASIC 

PROF also includes an online "HELP" feature for every TCL 
Command, which can be made available to every system user. 

PROF is customized. There is a different version for each 
manufacturer of PICK-based equipment, including: 

Ultimate General Automation 

ADDS Evolution 

CDI Bantam 

Datamedia Altos 
































The Pick System is designed to courses embody Dick Pick’s 

be user friendly. Now, Pick is philosophy on data processing, 

offering three courses to make it a and each one is taught by an 

fast friendship. instructor who is current on the 

These courses cover — latest developments 

a range of instruc- Bj ■ I ■ 5If in the system. 

tion for everyone m m ^ — This is your chance 

SYSTEMS 

from the Pick novice to pick our brains 

to the advanced programmer. about the Pick System. 

What really makes these For additional information 
courses unique is that they send in the form to Pick Systems 
come from the original source — 1691 Browning, Irvine, California 

Pick Systems itself. All the 92714 or call (714) 261-7425. 


Please send a registration application and course schedule to: 

Name_ 

Title_ 

Company_ 

Address_ 

City/State/Zip_ 

Phone_____ 


Recognize 
this 
computer? C 

If you use Rpple's Macintosh, 
then you'll want to read 
Semaphore Signal, the FREE 
monthly publication for Macintosh 
users. Published for ouer two 
years, subscriptions are free in 
the USR to any user submitting 
their Macintosh serial number to: 

Signal, 207 Granada, Rptos CR 95003 



POKE for forcing input at another port, and a 
DAILY-MESSAGE capability. _ 

Besides minor changes to a half dozen or so 
procs, a number of verbs now support new 
options. The most useful new option for us 
has been the numeric value in a SELECT, 
such as SELECT (5), so a search can stop 
after a certain number of items have been 
found. That's particularly helpful when you 
need to find just one occurrence of some data 
and don't want to go on searching the whole 
file, as we originally described as Wish #59 in 
Pragma #3 way back in February 1983. 

One option we were looking forward to using 
but couldn't get to work is the (S) option in a 
COMPARE, for suppressing equal items. 

Another disappointment was discovering that 
decimal input conversions don't guarantee a 
numeric result in one special case (though 
this deficiency probably already existed in 
2.1). For example, ICONV("A2.5","MD2") does 
nothing, which means programs have to use 
awkward combinations of R and M conversion 
codes to prevent non-numeric input. 

One interesting new feature is using an 
argument of 14 with the SYSTEM function to 
determine the number of bytes in the port's 
input buffer. Similar to the negative field 
width option for INPUT statements that Prime 
Information users have enjoyed for years, 
SYSTEM(14) allows programs to determine if 
input is waiting without actually executing an 
INPUT statement (and possibly hanging if no 
input is available). 


By using SYSTEM(14), a BASIC programmer 
can design all kinds of interesting programs 
that weren't previously possible. For 
example, here's some code that searches a 
file while reporting its progress any time a 
key is hit: 


OPEN "FILE" ELSE STOP 
SELECT 

PROMPT "" ; FOUND = 0 
100 READNEXT ID ELSE STOP 
READ ITEM FROM ID ELSE STOP 

IF INDEX(ITEM,"ERROR",1) > 0 THEN FOUND = F0UND+1 
IF SYSTEM(14) > 0 THEN 

CRT "SO FAR, FOUND:" ITEMS CONTAIN 'ERROR'" 
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Unlock The 
Secrets In 
Vour Computer! 


Pragma is a 48-page journal for Pick users published quarterly 
from Rugust 1982 through February 1984. €ach issue is pocked 
with software and helpful information, including complete and 
debugged program listings and detailed, explanatory articles 
for readers at all levels of experience. Order your issues to¬ 
day and begin unlocking the secrets in your Pick system! 





Pragma #1, August 1982: Welcome to Pragma • ZIP Code File Design • A Program 
for Renumbering Statement Labels • Deriving Vear-to-Date Counts • VANILLA, The 
No-Frills Manufacturing System: The Parts File • Molectron User Profile • More 
Memory, Fewer Reads • SVSMAP: fl Cross-Reference System • Hooj to Flag Miss¬ 
ing Checks • 23 Wish List Items • Computing Modulos with ENGLISH® • Building 
6NGLISH Headings with Proc • 4 Queries • Making Item Identifiers Hash Well • 
Tape Handling • Patching the €xit Problem in 3.2 SCREENPRO(TM) • The Shell 
Game. 


Pragma #2, November 1982: We Have Liftoff • fl Modulo Setting Program • Black 
Box Formatting • TRIM.D6LIM and PROFILE Utilities • SVSMflP, fl Cross-Reference 
System: File Format Input • Galinski Hamburg User Profile • LOOP vs. LOCATE 
Benchmarks • 25 Wish List Items • fin Introduction to ENGLISH: Jargon • Proc Con¬ 
versions • VANILLA, The No-Frills Manufacturing System: Bill of Material Input • 14 
Queries • The Trouble Tree • 2 Letters • A Switchbox for 32 Ports • Security and 
the DATA/BASIC(TM) Programmer • The Cookie Game • Some New Subscribers. 


Pragma #3, February 1983: Is Pragma a Rare Medium, Well Done? • Edit Aides • A 
Proc for Cross-Referencing Q-Pointers • SVSMAP, A Cross-Reference System: Re¬ 
maining File Input • Rainbow Natural Foods User Profile • More BASIC Benchmark 
Comparisons • Justifying Ragged Output • 13 Wish List Items • Generating Monthly 
Column Headings • VANILLA, The No-Frills Manufacturing System: Purchasing • 5 
Queries • An Introduction to ENGLISH: More Commands • Shared Site Checklist • 
Converting Paint to Programs • 3 Letters • Generating Blank Forms • Animal, A 
Game that Learns • More New Subscribers. 


Pragma #4, May 1983: Survey Says... • Pacific Valley Bank User Profile • SVSMAP, 
A Cross-Reference System: Diets and Procs • Uncompiling: Unassembling Stack 
Code • Left vs. Right Justification Benchmarks • 4 Wish List Items • A Comparison of 
BASIC Implementations • More New Subscribers • An Undocumented editor 
Capability • 3 Local User Group Reports • Avoiding Saved Lists with PQ-RESELECT 
• Self-Documenting Reports • A Query • A Survey of Hardware that Supports Pick- 
Style Software • Printer Trade-Offs • An Introduction to ENGLISH: Finding files • A 
Letter • VANILLA, The No-Frills Manufacturing System: Purchase Order Entry • The 
Swatl Game. 


Pragma #5, August 1983: Happy Birthdayl • Interactive Systems Producer Profile • 
Uncompiling: Regenerating Source Code • A Day of Revelation • IBM Personal Com¬ 
puter vs. Microdata(TM) Reality® Benchmarks • VANILLA, The No-Frills Manufactur¬ 
ing System: Receiving • 3 Wish List Items • An Introduction to ENGLISH: Being 
Choosy • Converting Manual Paint to Programs • 6 Local User Group Reports • 
More New Subscribers • A Program that Reports File Pointer Locations • Boiler 
Plate Processing with Runoff(TM) • A New Query and an Old Query Answered • 
SVSMAP, A Cross-Reference System: Automation • Tape Types • 6 Letters • Per¬ 
muted Index to the First Four Issues of Pragma • Amazing, a Maze Game. 


Pragma #6, November 1983: Pick Pie Pictured • The Ubiquitous POINTER-FILE • Un¬ 
compiling: Resolving Labels • An Introduction to ENGLISH: Syntax Overview • Ac¬ 
cuSoft Producer Profile • Rounding Out 7 Benchmarks On 5 Machines • Designing 
Data Entry Programs • 12 Wish List Items • GET: An Input Processor • 5 Local User 
Group Reports • More New Subscribers • Do Vou Know Vour Proc Limits? • 
VANILLA, The No-Frills Manufacturing System: Inspection • 2 Queries • Individual 
Accounts or Shared Accounts? • Lock Logic Illustrated • Password Protection • Two 
Undocumented Conversions • A Letter • How AMAZING Works. 


Pragma #7, February 1984: More New Subscribers • A New Machine Visits Pragma 
• Bantam Hardware Overview • Suppressing LOCKED Clauses • An Introduction to 
ENGLISH: WITH, BV and TOTAL • Bantam Producer Profile • VANILLA, The No-Frills 
Manufacturing System: Disposition • A Bantam Diary • New Benchmark Timings For 
8 More Machines • 6 Local User Group Reports • GET: Source Code • A 
Preprocessor for Symbolic Statement Labels • 2 Wish List Items • 3 Queries • Ban¬ 
tam Software Overview • A Letter • The Slide Game. 





Send $25 for each 48-page back issue to: 

Pragma 

207 Granada Drive 
flptos, CPS 95003 






WE SPECIALIZE IN USED AND COMPATIBLE 

MICRODATA 

SYSTEMS - PERIPHERALS - MEMORY - PRINTERS 

50 MB REFLEX I DISC DRIVES 
128 MB REFLEX II DISC DRIVES 
INTELLIGENT 8-WAY BOARDS, CABLES 
STANDARD 8-WAY BOARDS, CABLES 
128K MOS MEMORY BOARDS 
16K CORE MEMORY BOARDS 
PRISM I AND II CRTS 
ADDS VIEWPOINT CRTS 
★ ★★★★★★★★★★★★ 

COMPLETE MOS AND CORE SYSTEMS 
★ ★★★★★★★★★★★★ 

PRINTRONIX PRINTERS 
300LPM / 600LPM 
in stock 

★★★★★★★★★★★★★ 

BOARD REPAIR AND EXCHANGE SERVICE AVAILABLE 

Call CHUCK HAAS For Competitive Prices 
Buy-Trade-Sell 513-528-5400 


EflSTcmmp a me. 0 


INPUT IGNORE,1 ;* Clear out buffered char 
END 

GO TO 100 
END 


As another example, here's a fragment of 
code that prompts for a yes or no, but only 
waits 60 seconds for an answer: 


PROMPT "" 

WAIT = 60 ;* SECONDS 
PROMPT.TIME = TIME() 

CRT "START THE BACKUP? Y OR N?": 

LOOP 

IF SYSTEM(14) > 0 THEN GO TO 100 
UNTIL TIME() > (PROMPT.TIME+WAIT) DO 
RQM 
REPEAT 

* TIME IS UP 
ABORT 

100 INPUT ANSWER,! 


SYSTEM(14) should also be a boon to game 
programs. As one final example of how input 
buffer testing can make programs more 
interactive, here's a version of the infamous 
SWAT program from Pragma #4, simplified so 
that the keyboard controls the user's position 
(not velocity as in the original program), but 


New Software By Crescendo 

INTRODUCING OVEREASY. 


No longer will the width of your spreadsheets, 
reports and printouts be limited by the width 
of your line printer! OVEREASY is a software 
program which takes a report and "flips” it 90 
degrees, so that it prints across the perfora¬ 
tions. You can now create printouts which are 
infinitely wide! 

• OVEREASY is similar to the Sideways™ product on 
microcomputers. 

• OVEREASY works with most popular dot matrix 
printers including Epson, C.Itoh, Okidata, Man¬ 
nesman Thlly, and Printronix. 

• OVEREASY takes any report out of the spooler hold 


file. Anything that you can get into the spooler, you 
can print with OVEREASY. 

• OVEREASY works with all popular Pick-compatible 
spreadsheets including Realcalc, Spreadneat, Com- 
pusheet, Auroplan, Ulticalc, and Calcumentor. 

• OVEREASY is available for all Microdata, Pick- 
compatible, and Prime INFORMATION Systems. 

• OVEREASY costs just $395! 

Call (313) 537-1919 or write to us at: 

Crescendo Associates, Inc. 

24350 Joy Road, Suite 7 
Redford Twp., MI 48239 


Sideways is a trademark of Funk Software. Realcalc is a trademark of McDonnell Douglas Computer Systems. Compusheet is a trademark 
of Interactive Systems. Auroplan is a trademark of Aurotech. Ulticalc is a trademark of Ultimate. Inc. Calcumentor is a trademark of ADDS Inc. 
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Pickfair ’85 

Infomart • Dallas, Texas 
November 4-6 


Now, for the first time, Pick 
Systems is sponsoring its own 
international trade show. 

Pickfair ’85 will be held at the 
new Infomart in Dallas and will 
feature exhibits of Pick-based 
hardware and software. 

Pickfair ’85 is the first Pick- 
sponsored event designed to ex¬ 
pose current and potential Pick 
users to your products. 


By conservative estimates, 5,000 
people are expected to attend. 

This number is anticipated 
because Pickfair ’85 will be sup¬ 
ported by a national advertising 
and publicity campaign. 

Exhibiting rates will be afforda¬ 
ble, and booth selection and con¬ 
tracts will be available on a 
first-come-first-serve basis. 


For additional 
information send in 
the form to Pick Systems 
1691 Browning, Irvine, 
California 92714 or 
call (714) 261-7425. 


Please send additional information to: 

Name_ 

Title 1 1 ¥ 1 1 


Company 


Nature of business 
Address 


City/State/Zip 
Country 
Phone_ 















modified to make the fly swarm continuously 
on the screen: 


XMAX = 79 ; YMAX = 23 ;* CRT maximums 

YMAX = YMAX-1 ;* Leave room for control line 

10 CRT @(-l): ;* Start new game 

TRACING = 0 ; STEPS = 0 

XUSER = INT(XMAX/5) ; YUSER = INT(YMAX/2) 

XFLY = INT(XMAX/2) ; YFLY = YUSER 
100 * Loop back to here for each move 
CRT ©(XFLY,YFLY): "%": ;* Show fly 
VISIBLE = (0<=XUSER) & (XUSER<=XMAX) 

& (0<=YUSER) & (YUSER<=YMAX) 

IF VISIBLE THEN ;* Human on screen, may be at fly 
CRT ©(XUSER,YUSER):"*": ;* Show you 
IF (XUSER=XFLY) & (YUSER=YFLY) THEN 
CRT ©(-1):"SWAT! (":STEPS:" steps.)" ; STOP 
END 
END 

CRT ©(0,YMAX+1):"You're ©(":XUSERYUSER:"), " 
IF TRACING THEN CRT "tracing, ": 

CRT "fly's ©(":XFLY:",":YFLY:"). ": 

CRT "Your move? (1-9,Q,R,T)":®(-4): ;* Clear line 
IF SYSTEM(IA) THEN ;* Input waiting 
INPUT DIR,1: ;* Get move 
STEPS = STEPS+1 

IF VISIBLE THEN ;* Last position was on screen 
CRT ©(XUSER,YUSER): 

IF TRACING THEN CRT ELSE CRT " ": 

END 

BEGIN CASE 

CASE DIR=1 ; XUSER=XUSER-1 ; YUSER=YUSER+1 

CASE DIR=2 ; YUSER=YUSER+1 

CASE DIR=3 ; XUSER=XUSER+1 ; YUSER=YUSER+1 

CASE DIR=4 ; XUSER=XUSER-1 


CASE DIR=6 ; XUSER=XUSER+1 

CASE DIR=7 ; XUSER=XUSER-1 ; YUSER=YUSER-1 

CASE DIR=8 ; YUSER=YUSER-1 

CASE DIR=9 ; XUSER=XUSER+1 ; YUSER=YUSER-1 

CASE DIR="Q" ; CRT ©(-1):STEPS:" misses."; STOP 

CASE DIR="R" ; GO TO 10 

CASE DIR="T" ; TRACING = NOT(TRACING) 

END CASE 
END 

CRT ©(XFLY,YFLY) :" ": 

XFLY = XFLY+RND(3)-1 ; YFLY = YFLY+RND(3)-1 

IF XFLY < 0 THEN XFLY = 0 

IF YFLY < 0 THEN YFLY = 0 

IF XFLY > XMAX THEN XFLY = XMAX 

IF YFLY > YMAX THEN YFLY = YMAX 

CRT ©(XFLY,YFLY): 

GO TO 100 
END 


Note how all of the above examples depend 
on single character input. That's because 
even though SYSTEM(14) tells you how many 
characters are waiting, it doesn't indicate 
whether a carriage return is present. 
Executing an INPUT statement just because 
characters have been buffered can still cause 
a program to hang, waiting for the final 
carriage return. The 3.0 release really should 
have also included a way of extracting 
buffered characters without depending on the 
INPUT statement. 


FREE Back Issues! 


A few Pragma's Product Profiles back 
issues are still available while supplies 
last. To receive your FREE copies, 
indicate which issues you need and send a 
stamped, self-addressed envelope (allow 
1.5 oz. per issue to compute postage) to: 
Pragma • 207 Granada Dr. • Aptos CA 95003 

Issue #1, April 1984: Memories Of The 
Spectrum '84 Show • Issue It2, May 1984: 
Our Second Annual Pick Hardware Survey 
• Issue If 7, October 1984: Manufacturing 
Users And Vendors Wanted • Issue #8, 
November 1984: A Look At ScreenPlay • 
Issue #9, December 1984: Moving Software 
With Data-Bridge • Issue it 10, January 
1985: Beyond The Power Of The Pick 
System • Issue If 11, February 1985: Open 
Architecture Status Report • Issue #12, 
March 1985: Our Impressions Of The Zebra 
750 • Issue #13, April 1985: What Should 
Standard Pick Be? • Issue #14, May 1985: 
Our Third Annual Pick Hardware Survey. 


In any case, we're duly impressed with the 3.0 
release, both for the features it provides and 
especially for the speed improvement over the 
2.1 release. Currently, our only major wish 


STATISTICS • QUALITY CONTROL 
and FORECASTING for PICK 

Write DTRO, Suite 100, 1229 7th Ave., San Francisco, CA 94122 



CORPORATION 

Specializing in systems for 
Manufacturers • Job Shops • Distributors 

• Sales/Marketing • Finance/Accounting 
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still left is for a LOCKED clause for READU 
statements, like Microdata (now McDonnell 
Douglas) has had for so many years. It's 
actually kind of amazing that many Pick-style 
systems (which are supposedly especially 
designed for typical data processing tasks like 
letting multiple users simultaneously access 
files) can only blindly hang inside a READU if 
a group is already locked by another port, 
instead of offering a LOCKED clause so that 
warning messages can be displayed and the 
operator can exit to do other work. A 
LOCKED clause that provides the port and 
account that are responsible for the lock 
would be especially useful. When it's worth 
the trouble, programmers can provide their 
own mechanism for detecting item locks by 
maintaining a file that keeps track of all 
items currently being updated. But every 
time a file item is read or written, that 
approach generates a lot of extra overhead 
just to support a feature that should be built 
into BASIC in the first place. Guess we'll 
just have to wait for the 4.0 release... A 
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MTRODUONG 

THE MOST POWERFUL 

PKK SYSTEMS IN THEIR CLASS. 


PICK users are passionate 
about their favorite operat¬ 
ing system. 

But there’s been a 
problem. 

They’ve had to either 
stick with obsolete minicom¬ 
puters or settle for a weaker 
micro system. 

Now CIE Systems 
introduces the CIES 680/100 
APX and CIES 680/200 
APX multi-user systems. 

Which means your cus¬ 
tomers can transport their 
PICK applications down 
from a high-price mini to a 
high-performance 680 APX 
supporting up to 40 termi¬ 
nals simultaneously. Each 
doing different jobs. 


CIES 680 APX systems 
feature 68000 processors 
running at 10 MHz with no 
wait states for up to four 
times the speed and 
throughput of other 68000 
PICK implementations. 

And they’re fully sup¬ 
ported by CIES and our 
multi-national, $60-billion 
parent company, C. Itoh, with 
vast production capabilities 
and worldwide resources. 

For more information, 
just call or write our 
exclusive sales represen¬ 
tative, BONNECO, Hutton 
Centre, 201E. Sandpointe 
Avenue, Suite 490, Santa 
Ana, CA., 92707, at 
(714) 546-0244. 



PICK SYSTEMS DIVISION 

A C.ITOH ELECTRONICS COMPANY 


CIE Systems 


BONNECO, 


Exclusive Sales Representative 


"CIE 680 is a Trademark of CIE Systems, Inc.®PICK is a Registered Trademark of PICK Systems.© 1984 CIE Systems, Inc. 


































